(describe-current-coding-system): Use `mapc' rather than `mapcar'.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 21b0b3485f15e1af2b4cb33e4e2e4f23f34f916a..df01247cd013a8f97be38740512f12e888bb122e 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -839,7 +839,7 @@ Priority order for recognizing coding systems when reading files:\n")
            coding-system codings)
        (while categories
          (setq coding-system (symbol-value (car categories)))
-         (mapcar
+         (mapc
           (lambda (x)
             (if (and (not (eq x coding-system))
                      (coding-system-get x 'no-initial-designation)